(isearch-mode-map): Use vector, not string, to bind printing characters.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3b13442bdeb176d71e186903231b76315e4118d0..142228bea1672cc0cde72e45b0d30b1008190861 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/05/17 18:22:37 $|$Revision: 1.34 $
+;; |$Date: 1993/05/18 15:46:30 $|$Revision: 1.35 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -89,114 +89,8 @@
 
 ;;; Change Log:
 
-;;;====================================================================
-;;; Change History
-
-;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.34 1993/05/17 18:22:37 rms Exp rms $
-;;; $Log: isearch.el,v $
-; Revision 1.34  1993/05/17  18:22:37  rms
-; (isearch-mode): Set deactivate-mark.
-;
-; Revision 1.33  1993/05/15  20:05:36  rms
-; (isearch-done): Don't activate mark.
-;
-; Revision 1.32  1993/05/14  18:02:55  rms
-; (isearch-mode-map): Handle any length vector in keymap.
-; (isearch-char-to-string): Handle non-character events properly.
-;
-; Revision 1.31  1993/04/23  07:31:14  eric
-; Replaced all fsets with defaliases.
-;
-; Revision 1.30  1993/04/14  19:40:53  rms
-; Doc fixes.
-;
-; Revision 1.29  1993/03/30  19:42:10  rms
-; (isearch-done): Customize the message about mark.
-;
-; Revision 1.28  1993/03/30  19:38:34  rms
-; (isearch-mode-map): Delete the binding for C-h.
-;
-; Revision 1.27  1993/03/21  05:50:17  jimb
-;      * isearch.el (isearch-switch-frame-handler): Call
-;      handle-switch-frame instead of select-frame; it has been renamed.
-;
-; Revision 1.26  1993/03/17  17:17:05  eric
-; Add standard library headers.
-;
-; Revision 1.25  1993/03/17  16:44:50  eric
-; Add standard library headers.
-;
-; Revision 1.24  1993/03/17  15:58:09  eric
-; Add standard library headers.
-;
-; Revision 1.23  1993/03/07  20:17:27  rms
-; (isearch-other-meta-char): Call listify-key-sequence.
-; (isearch-unread): Don't call it here.
-; (isearch-mode-map): Bind the ASCII-equivalent function keys.
-;
-; Revision 1.22  1993/03/07  08:43:57  rms
-; (isearch-mode): Don't make a pre-command-hook.
-;
-; Revision 1.21  1993/03/07  04:22:00  rms
-; (isearch-unread): Find last list element by hand.
-;
-; Revision 1.20  1993/03/06  06:15:05  rms
-; (isearch-unread): Handle multiple args.
-; For Emacs 19, use listify-key-sequence.
-; If not Emacs 19, assume they are a meta sequence.
-; (isearch-other-meta-char): Pass the whole key sequence.
-; (isearch-other-control-char): Make this alias for ...-meta-char.
-;
-; Revision 1.19  1993/02/17  21:30:25  rms
-; Fix minor bugs in previous change.
-;
-; Revision 1.18  1993/02/17  20:34:20  rms
-; (isearch-backward-regexp):
-; New arg no-recursive-edit, always non-nil for interactive call.
-; Rename first arg, and set it right in interactive call.
-; (isearch-forward-regexp): Likewise.
-; (isearch-forward, isearch-backward): Likewise no-recursive-edit.
-;
-; Revision 1.17  1993/01/26  01:48:27  jimb
-; JimB's changes since January 18th
-;
-; Revision 1.16  1992/11/16  01:37:06  jimb
-;      * bytecomp.el: Declare unread-command-char an obsolete variable.
-;      * vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
-;      vip-prefix-arg-com): Use unread-command-event instead of
-;      unread-command-char; respect its new semantics.
-;      * isearch-mode.el (isearch-update, isearch-unread): Same.
-;
-; Revision 1.15  1992/11/07  06:17:04  jimb
-;         * isearch.el (isearch-frames-exist): This isn't what we want -
-;      replaced by...
-;      (isearch-gnu-emacs-events): non-nil if should expect events in the
-;      style generated by GNU Emacs 19.  Set if set-frame-height is
-;      fboundp; this is true on any GNU Emacs 19, whether or not it was
-;      compiled with multiple frame support.
-;      (isearch-mode-map): Test isearch-gnu-emacs-events instead of
-;      isearch-frames-exist to see if we should bind switch-frame events.
-;      (isearch-update): Test isearch-gnu-emacs-events instead of
-;      isearch-frames-exist to see if unread-command-char's quiescent
-;      value is nil or -1.
-;
-; Revision 1.14  1992/11/01  22:10:59  rms
-; (isearch-search): Handle all sorts of errors from regexp search.
-;
-; Revision 1.13  1992/10/27  04:11:46  rms
-; (isearch-edit-string):
-; Bind cursor-in-echo-area only around read-char/allocate-event.
-;
-; Revision 1.12  1992/10/20  21:21:47  rms
-; (isearch-mode-map): Make the top-level keymap dense.
-; Explicitly bind control characters at that level.
-;
-; Revision 1.11  1992/10/11  05:25:11  rms
-; (isearch-ring-advance-edit): Delete spurious `)'.
-;
-; Revision 1.10  1992/09/21  08:28:43  rms
-; entered into RCS
-;
+;;; Changes before those recorded in ChangeLog:
+
 ;;; Revision 1.4  92/09/14  16:26:02  liberte
 ;;; Added prefix args to isearch-forward, etc. to switch between
 ;;;    string and regular expression searching.
@@ -342,10 +236,10 @@ Default value, nil, means edit the string instead.")
        (define-key map (make-string 1 i) 'isearch-other-control-char)
        (setq i (1+ i)))
 
-      ;; Printing chars extend the selection by default.
+      ;; Printing chars extend the search string by default.
       (setq i ?\ )
       (while (< i (length (nth 1 map)))
-       (define-key map (make-string 1 i) 'isearch-printing-char)
+       (define-key map (vector i) 'isearch-printing-char)
        (setq i (1+ i)))
 
       ;; Several non-printing chars change the searching behavior.